home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1471 / clsconta.cls < prev    next >
Encoding:
Text File  |  1997-02-11  |  1.2 KB  |  54 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsContact"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10.  
  11. Private pChildren As clscContacts
  12. Public Name As String
  13. Public WorkPhone As String
  14. Public LastMeetingDate As Date
  15. Public Image As Variant 'required. Index or key of an icon in an imagelist
  16. Public HasChildren As Boolean 'required. ThreadView needs this to know whether draw plus/minus
  17. Public Parent As clscContacts
  18. 'Requred  function
  19. Public Function Properties(value)
  20.  
  21. Select Case value
  22.     Case "Name"
  23.         Properties = Name
  24.     Case "WorkPhone"
  25.         Properties = WorkPhone
  26.     Case "LastMeetingDate"
  27.         Properties = IIf(LastMeetingDate = 0, "", Format(LastMeetingDate, "Medium Date"))
  28.     Case "Parent"
  29.         Set Properties = Parent
  30.     Case Else
  31.         'Trap your own typing mistakes
  32.         Properties = "#Error#"
  33. End Select
  34.  
  35. End Function
  36.  
  37. Private Sub Class_Initialize()
  38. Image = "Doc"
  39.  
  40. End Sub
  41.  
  42. Public Property Get Children()
  43.  
  44. If pChildren Is Nothing Then
  45.     Set pChildren = New clscContacts
  46.     pChildren.Create Me
  47. End If
  48.  
  49. Set Children = pChildren
  50.  
  51. End Property
  52.  
  53.  
  54.